home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 05 (1982-01)(Softdisk)(Side B).zip / Softdisk Magazette Volume 1, No. 05 (1982-01)(Softdisk)(Side B).do / BOUNCE.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  57 lines
  1. 1  TEXT : HOME 
  2. 5  PRINT 
  3. 7  PRINT "               THE BOUNCE"
  4. 12  PRINT : PRINT : PRINT : PRINT 
  5. 320  PRINT "TO SELECT A COLOR FOR THE BOUNCING BALL,"
  6. 340  PRINT "TYPE A NUMBER FROM 1 TO 15"
  7. 341  PRINT 
  8. 360  PRINT "AFTER THE QUESTION MARK."
  9. 361  PRINT 
  10. 362  PRINT 
  11. 365  PRINT 
  12. 380  PRINT "THEN PRESS THE KEY LABELLED /RETURN/"
  13. 400  REM  CHOOSE BALL COLOR
  14. 401  PRINT 
  15. 404  PRINT 
  16. 405  PRINT 
  17. 420  INPUT "WHAT COLOR WOULD YOU LIKE?";BALL
  18. 421  SPEED= 255
  19. 424  REM  IS BALL BETWEEN 1AND 15?
  20. 428  IF (BALL >0)  AND (BALL <16)  THEN  GOTO 460
  21. 432  PRINT "THAT WASN'T BETWEEN 1AND 15, NOW WAS IT!"
  22. 436  GOTO 420
  23. 440 SET GR APHICSMODE
  24. 460  GR 
  25. 480  REM   STARTING POSITION
  26. 500 XOLD = 25
  27. 510 YOLD = 38
  28. 520  REM  MOVE THE BALL BACK AND FORTH
  29. 540 XMOVE = 1
  30. 545  REM  MOVE BALL UP AND DOWN
  31. 550 YMOVE = 1
  32. 560  REM  NEW X POSITION
  33. 580 XNOW = XOLD +XMOVE * PDL(0)/70
  34. 600  REM  IS BALL ON THE SCREEN?
  35. 620  IF (XNOW > = 0)  AND (XNOOE <40)  THEN  GOTO 686
  36. 640  REM  MOVE BALL LEFT
  37. 660 XMOVE =  -1 *XMOVE
  38. 680  GOTO 580
  39. 684  REM  NEW Y POSITION
  40. 686 YNOW = YOLD +YMOVE * PDL(1)/70
  41. 688  REM  IS BALL ON SCREEN?
  42. 690  IF (YNOW > = 0)  AND (YNOW <40)  THEN  GOTO 720
  43. 692  REM  MOVE BALL UP
  44. 694 YMOVE =  -1 *YMOVE
  45. 699  GOTO 686
  46. 700  REM  NEW BALL POSITION
  47. 720  COLOR= BALL
  48. 740  PLOT XNOW,YNOW
  49. 760  REM  ERASE THE OLD BALL POSITION
  50. 780  COLOR= 0
  51. 800  PLOT XOLD,YOLD
  52. 820  REM  SAVE BALL POSITION
  53. 840 XOLD = XNOW
  54. 850 YOLD = YNOW
  55. 860  REM  MOVE AGAIN
  56. 880  GOTO 580
  57. 890  GOTO 580